home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / docs / mags / AmZ_2AG.lha / AmZeiger / Scripts / dopus / DO-Pikto.rexx next >
OS/2 REXX Batch file  |  1997-09-14  |  1KB  |  16 lines
  1. /************************************************/
  2. /* DOpus5 Pikto+ Script V1.2.1                  */
  3. /* (c)'97 by Andreas Schlick                    */
  4. /* Arg: DO-Pikto.rexx ListerHandle              */
  5. /************************************************/
  6.  
  7. IconToo = 0     /* Mit IconToo = 1 wird, wenn der Lister sich im          */
  8.                 /* Icon action Modus befindet, erst in den Icon Modus     */
  9.                 /* geschaltet und vom Icon Modus wird in den Name-Modus   */
  10.                 /* geschaltet                                             */
  11.  
  12. /* Ab hier nichts mehr aendern!!! */
  13. options results; parse arg wlister; IF ~Show("P","DOPUS.1") THEN DO say "Error 1: Kann den DOpus ARexx-Port nicht finden."; EXIT; End;
  14. address value DOPUS.1; 'lister query' wlister 'mode'; IF result="name" THEN 'lister set' wlister 'mode icon action'; else IF result="icon action" THEN DO; IF IconToo=1 THEN 'lister set' wlister 'mode icon'; else 'lister set' wlister 'mode name'; END; else if result="icon" THEN 'lister set' wlister 'mode name'; EXIT;
  15.  
  16.